home *** CD-ROM | disk | FTP | other *** search
/ OK PC 32 / OK PC 32.zip / OK PC 32 - Ishar & Demos (III-95) / OKPC32.iso / quar / angle.bas < prev    next >
BASIC Source File  |  1994-06-17  |  490b  |  25 lines
  1. PRINT "ED's MUZZLE OFFSET PROGRAM!!!!"
  2. PRINT
  3. INPUT "SILLY X CENTER ", xc
  4. INPUT "SILLY Z CENTER ", zc
  5. INPUT "SILLY X MUZZLE ", xm
  6. INPUT "SILLY Z MUZZLE ", zm
  7.  
  8. dx = xm - xc
  9. dz = zm - zc
  10.  
  11. IF dz = 0 THEN ang = 90 ELSE ang = ATN(dx / dz)
  12.  
  13. ang = ang * 180 / 3.141592654#
  14.  
  15. IF dx < 0 AND dz > 0 THEN ang = 180 + ang
  16. IF dx < 0 AND dz < 0 THEN ang = ang + 180
  17. IF dx > 0 AND dz < 0 THEN ang = 360 + ang
  18.  
  19. dist = SQR(dx * dx + dz * dz)
  20.  
  21. PRINT "ANGLE "; ang; "    DIST "; dist
  22.  
  23.  
  24.  
  25.